6 GR : COLOR= C: FOR I = 0 TO 39: VLIN 0,39 AT I: NEXT I: FOR J = 0 TO 1: FOR I = 0 TO 1: GET A$:A = ASC(A$):C = C +1 *(A = 67):C = C -16 *(C = 16):X = X +1 *(A = 75):X = X -1 *(A = 74):Y = Y +1 *(A = 77):Y = Y -1 *(A = 73):X = X -40 *(X = 40):Y = Y -40 *(Y = 40):X = X +40 *(X = -1):Y = Y +40 *(Y = -1):F = F -(F -C) *(A = 68): COLOR= F
7 PLOT D,E:F = SCRN( X,Y):D = X:E = Y: COLOR= C: PLOT X,Y:I = 1 *(A = 27 OR A = 72 OR A = 86 OR A = 83): NEXT I:G = SCRN( X,0):G = G -(G -C) *(A = 86):K = 39 *(A = 86): COLOR= G: VLIN 0,K AT X:G = SCRN( 0,Y):G = G -(G -C) *(A = 72):K = 39 *(A = 72): COLOR= G: HLIN 0,K AT Y:J = (A = 27 OR A = 83):F = C: NEXT J: ON A = 83 GOTO 6